home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
The Atari Compendium
/
The Atari Compendium (Toad Computers) (1994).iso
/
files
/
umich
/
utils
/
autocopy.arc
/
JOYSTICK.PAS
< prev
Wrap
Pascal/Delphi Source File
|
1987-03-13
|
574b
|
30 lines
PROCEDURE INIT_STICK;
EXTERNAL;
PROCEDURE END_STICK;
EXTERNAL;
FUNCTION STICK(WHICH_STICK: INTEGER): INTEGER;
EXTERNAL;
FUNCTION STRIG(WHICH_STICK: INTEGER): BOOLEAN;
BEGIN
STRIG:=STICK(WHICH_STICK) DIV 128=1;
END;
FUNCTION H_STICK(WHICH_STICK: INTEGER): INTEGER;
VAR
TMP: INTEGER;
BEGIN
TMP:=(STICK(WHICH_STICK) & 12) DIV 2-3;
H_STICK:=TMP*ORD(TMP<>-3);
END;
FUNCTION V_STICK(WHICH_STICK: INTEGER): INTEGER;
VAR
TMP: INTEGER;
BEGIN
TMP:=(STICK(WHICH_STICK) & 3)*2-3;
V_STICK:=TMP*ORD(TMP<>-3);
END;